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本鼴は グラフィック ♦ ヮ一 クフッ 
クの 版です. グラフィックス を 通して * 
MSX ユーザ一 の 方に 中圾程 K の BASIC 
プログラミング テクニック を 身に つけて い 
£だ こうと いう 目的て 鑿 なれ まし fc， 

MSX の BASIC に W して は， いま^でに 
ち r MSX ビギナー ス 8AS〖Cj を 始め， 数 
多 < の 入用 豳ガ 出版され ています 1 それら 
によって， BASIC の S» 知 》 を^， 次 
なる ス テツ フ ぺ いざ ffi み 出そラ という； 5 に 
とって は * 本 靈のブ □ グラム を統 み. なフ 
理 《? する こと ガフ □ プラ S ングの 良き 嵊習 
となる でしよ ラ， 掲葡 され だ プ ラフィック 
スの 数々 なモの 興味 を ー设と 堪 す こと は颺 
け 合し 、 ます. 

とごろで， とい ラ 統一 Jft 格 ガパソ 
コ ンの ユーザーに とって 大変な メ I j ッ卜を 
fcJ とい ラ こと は ♦ すてに いろいろな ま 所 
で S 及され ています， 

しかし * MSX の 登 》 せこのう えちな < 
»ん でい る 人タガ ちう 1 種 頃 g 在して いる， 
この 攀突 は廉 外と 知られて おり^せん そ 
のちう 1 つの 人種と は， 柯をか < そラ ゾてソ 
J フ fflSlK 書 執筆者ち ち であ ります. 

す 1 " し 菊まで は， BASIC SB の K 明 を 
する しして ち， 7 ラフィック スを Ba< にし 

てち * s 々の メーカ一 の 機 at に 特有な 機錄 

や 制 頃の さめ， 職 を した 》sa を 行う こ 
t はなさな な 難しかった ちので す 



} い ノコ ン一 «； について お を 進めて しまう 

と， ISffl が 画一的で > 実際の フ シン J* 作に 

は あま ゥせ 立^ない ちのに is り； tr ちです. 
なと いって， ある 《 機の 待 as を 十分に 活ガ 
す 明 を 行お ラと 思ラ と， こんど は 世界が 
お まりに 抉 < なって， 他に j»a のきなない 
知 a ばな り 新 者の: a に 与えて いるので はな 
いな， という 不安 ガ生 まれて き， す. 

その 点 msx では， このよ ラ な 1 冊の 靈 
ra が， どの メーカーの どの MSX マシンち 
待って いるち にも 向 じ 条件の 上に 立って お 
新み い; e だけ る^め， 糸 計な こと を g えす 

にこち 5 の えだい こと を そのまま G えら 

れ ます， こうやって 靈さ s§ ねだ こと ガ b 不 
足な <: ^ s の 方々 に していだ だける わ 
けで， 筆者と してち こんなに 喜ばしい こと 
はありません. 

M3X 関係 の 解貌瞻 を執顯 している 人颺 

は， 多な れ 少な かれ H 様な を 格って い 

ます. その 意昧 で， MSX の 本 は どれ をと 

つてお その » 者な りの 自侶 作と なって いる 

はす . 本 » も その^ にもれ ません. 我々 は 

目 S 在 W つて この 本 を MSX ユーザーの 方 
^に 捧 けます， 

B 和 59 年 4 月 1 S 

搜田 幸 S 
S 墨 ^ 
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アートへの アブ n —チ 




本章て は コンビ ュ一タ による ァー 卜に 13 & 
敝 します + 

近年， 我勞ガ MSX を はじめと する; 《 性 
能 パソコン ガ 出現し. これ まて は Sffi の 花 
であった コンビ ユー タ • 7 ラフィック ス；! f 
私 だち に も 手 接に 楽 しめる ようにな り^し 
だ. なかで ち， 本章に 蹈 R しだ よ^な 世人 
の S を 楽しませる： ttK な， あるいは 小 JS 気 
に洒 SJC クラ フィック 作品が， わす かな 手 
閥て 描け る この 楽し さ ' '-… . 美しい 作 ffl を 
描 <： だめの テク 二、 リヮの その 入 □ あ^ り を 
« 々取り まぜて 見ても & うこと にい 35 しま 
^. 月並ない い 方て なか， これ を 基礎と レ 
て g さん 自身， いろいろな グラフィックに 
K つ 組んで いだ だき; C い. 耀 雷ら はそう 希 
SI してお ります. 



直 鶴 を 描こう 
MUG CUPS 
ス ベース W トル 
リン ゴ碰く 
蘇と 翻 
Stardust Night 

自分 招加 曲 sasi ごう 

AUD イド 曲 終 描く 
:?zrc 棚お か？ 

33W75>r カス？ 
文 柳挪 




直線で 模様 を 描こう 



本酃の テーマで 3B るァー 卜と いう S 菜 に 
^やら な. そしてむ す 方し そ^な EDft 
を 感じ だ; 5, いえいえ そんなに 身 « ぇる必 
要は あり？ せん. 

何 はと も あれ， $ す isia を 一本 引ぐ こと 
から 始め ましよ ラ. それだけ でち 美しい 槿 
ほほ 描け るので す. 

ここに 挙げ だ 2 つの ラ乙を 見て < 
ださい. 扱って いる グラフ ィ， ソク は， ど S 
らち LINE « 令 だけで 描かれて います ガち 
よつ とすて さな «« となって いると 思い ま 
せん 方？ 

List ザ 3 では， 《 XS ^ ら XE ， 
t» YB 力ら YE の 四 S 形の S 辺 上 を 西 » の 
始点 とお 点 を 移動 させ 》 す. 190 行で 引いて 
いる E は を ffl に とれば * 始点は 四角形の 匠 
S2« S 分圑 して， 左な 55 に XS ドッ卜 



すつ 動いて いき. 終点 は 四角^の 5 辺 を 下 
なら 上に 向けて， YS ドッ 卜す ゥ動 いてい 

き^す rna@ 港 )+ ごの 始点と 終点 を顬に 
tt ぶと. 右下の 角に 相当す る 80 分か 描き あ 

ガりま g\ 岡 様に. 200〜220 行きての LINE 
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69 



命令^. 四角形の 右上， 左上 > 左下の 角 を 
描いて い <： わけです. 
Lfst 1b でも， やはり 音 接の 点と 終 

点 を 動かして います ガ. 今度 は 四角形の 辺 

List la 



と 対角 は を 結ん て 81 を 引いて い^す， 

どちらの フ CK7 ゥムも 慶« S や XE. 
YE などの AS を 変える と ffi® か变 わり^す. 
変化す る投搽 を 楽しん て < ださい * 



List 1b 



" List 



la 



グラ 



XB-32 〖 YB=0 
S=36 : C=15 

XS=(XE-XB)/S i YS=i¥E-YB)/S 



クの ft 



SCREEN 2 : COLOR 15,13,13 ： C し S 
FOR 1=0 TO S 

LINE CXB+XS*I , YE)-(XE»YE-YS*I ) ,C 

(xe-xs*i » YB>-txE* ve:-vs*i ) ,c 

( XE -) (SM , YB ) -" B , YB+YSM h 匚 
(XS+XS*I »YE>-(X8»VB+VS*I )*C 



LINE 

LINE 

LINE 
NEXT I 
OM$=INPUTS( 



) ま EMD 



十 YS»【） ，C1 



YE-YS*I)»C2 
YB+VS*! ) ,C2 



List lb 

i YB=6 
: YE=^191 
Cl=d : C2=6 
XS=(XE-XS)/S : YS=<YE-YB)/S 

SCREEN 2 ： COLOR 7,1,1 : CLS 

FOR 1=0 TO S 

LINE <XE-XS*I ,YB)-CXB+XS*1 
LINE <XB+XS*I ( YE)-(XE-XS*I 

NEXT I 

FOR r-9 TO S 

LINE (XE,YB+¥S*I)-<XE-XS*I , 
LINE <XB,VE-YS*I >-(XB+XS*I , 

NEXT I 



0- 3 @ @ @ 3 0 0 3 0 0 0 0 

012 3 4367s 9 01 2 34 

1111111 11122222 



012345678 9012 3456 

1111111H12222222 



5 : 

0 2 5 

I 一 『J 2 

BE = 

XX s 



ノ 



Stardust Night 



MSX の グラフィック S 面 は， 256X192 
ドッドの 解 《S な あり， 見 ごた えの ある 荑 
しい 給 を 描 <： ごと も 十分^ 能です， ごこで 
は グラフィックの サン フル + フ D ブラん と 
して は スタンダードな， スター タス 卜 ナイ 
卜に S&fell してみ ましょう. 

ごこで， フロ クラ^ を 見て < ださい. ま 
す， パックに ffl りぱ めら れる里 は 270〜320 
行で » 示して います. m 290 行て 乱数ち 

発生 させ， この 位 》 に 星 を 表示し 彥す. だ 

だし， 星の 分布 を Yg» の 小さい 方， つま 
ゥ垂囿 の 上の 方へ 寄せる だめ + 星め Y 座攝 
は 290 行の ように， RNDC1 > * RNDC1 ) によ 



る &数 を 用います， 

^に 流畕 て^な， こ n は 4D0~4S0^ のサ 
フルー チンで 描いて います. この サブ ルー 
チン は， 370 行の RNCK1X.002 という 条 
件 ガ^ だされた ときに のみ 呼び出し 実行 さ 
れ S す， 要するに 3701^ を 罢 行す る だび に， 
臺奄描 <： と 流れ星の 大安 売りと なって し * 
ラのを B5 いだので す * ^手 好きな 人, さびし 
ガり やの 入 は， 370^ を， C だの GOSUB 

400 とし， 実行して < だ さい. 流星 sf* は a 
et で始 終^ を 決め， put sprite m 
^で 描いて い s な. 
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巧 



List 6 



103 
113 
120 
130 
140 
150 

170 
180 
190 
269 
213 
220 
239 

256 
262 
270 
289 
29Q 

see 

328 
333 
340 
350 
360 
370 
380 
398 

dee 

410 
428 
ぬ B 
AA^ 
450 

480 
49© 

5m 

519 
520 
538 
549 



3t 



RESTORE 519 ： ST*:'' 
FOR 1=1 TO 32 

READ D : ST*=ST$+CHRStD> 
NEXT I 



SCREEN 



COLOR 15ん 



» のスブ 5«f f バタ一 ンを 文: |f#llt レズ お 纖 する 



C し S 



w お » 



DR^U f BM160 l X9i CI" 

DRAW "M160,178 M178.170 M207,W 

ORAU "M207,15e M216,152 M22A,l5 &' 

D 隨 " M224 , 179 M23ia?8 

□RAW '&»1216,152 M2i6a40 J 

ORAU "BH212, 146 M220.146* 

PAINT (216, 160), 1 

LINE t212,16@ )-(218,168) ,8»BF 

FOR I=i TO 2m 

X-rNT<RNO(l J*32>*8 

Y= INT (RND(l) mm tl)*96)*2 

C=INTCRND( 1 )*ld)+2 

PSET (X,Y),C 
NEXT I 



CIRCLE (75,30) .8,11 i PAINT {75,30) ,11 



v ■'『 



fl を 》 く 



SPRITE$( 0 >=ST$ 

IF RWD(IX.flQ2 THEN GOSUS A2% 
IF INKEY ま O" THEN END ELSE 378 



AJLtlft ( サブルーチン 



XO=lNT(RND(ll*10e>+2fl 
Xl=INT(RNO£l J*190)+130 

一 

PLAY "T15QL64N80N79N78N77N76N75N7a < 
FDR ヌ =X0 TO XI STEP a 

PUT SPRITE 0,(X»Y),11,0 

y=Y+YS 
NEXT X 

PUT SPRITE 0,(X,209),U，O 
RETURN 



Y0=IMT(RND(1)*3B) ！ 
Yl=INT(RND(l)*70)+6e 



I を to か t サプ 

ルー チ ン 



□ATA 128,64,32， 16, 8,a，2»l 

DATA 0,0, 0,1, 6, 0,0,0 

DATA 0，8,0,H0,0，16 

DATA 1 d6 1 8d 1 56 r 255 , 56 * 84 , 146 , 16 



のス プライ 



ン' ヂ一: 



円 は 異なち の眛 なち の 



円 を S 本と した を 描ぐ 際 ひんばんに 
登壩 する のガ， fflj の サイン ゃコ サインと い 

Figure 1 のよ ラな IH 角 三角形に おい 
て， S T とほかい ぬ 疆の辺 の 長さが sin 
m に 相当し， S T と醒角 を結ぷ 5Z3 の ft 
さが COSCT) に 相当す る， C! の 位霣 関係 を 
三角形 ガ どんな^ さに« いてち 見分ける E 
カは必 »て す. 




costTj 



Figure 1 




3 簞 ァ一！ "への ァプ 口一 ■： 




こ こて Figure 2 奄 11て< ださい + 始 

点ノ づ^ 角度 丁 だけ 回际 した 円 ra よ Mia は, 

sinras タ と cosMR を 使って St» でさ^ 
す. この は， 始点の と 角 T の 向き 
によって t» 々な 場合 ガ あります ゴ， ごこて 
は 2 通りの 倒 を 示 レ^した， どち 5 の 場合 も, 
61 面 上の x ffi 標と y は それぞれ 右と 
下へ 行く ほど 加び ると いう ことと Figure 
1 の 関係 を 考え 合 oeru あ s ガ出 てき ま订， 
円 卿 心 を CX0, 丫 0) とす n ば， Fteijre 
2s のように. R の 右 なら 反 時計回りに 
角 T だけ 0fe しだ は （XO+cosCD + 
Y0-slnCT>X Hsum 2 わの よ 
うに. 円の 下の (» ガら畤 St© りに 0粗 させ 

る 《 合 は cxo-sin (t〕 ， yo+cos CT» 

とし \^ ょラに 位疆の stu なでさ るれ けです. 




Figure 2 



List 7 では, 上の^の Ffgure 2a 
と 同じ 角 fi のとり 方 を 用いて， mm R の 円 
颺 上に 次々 と 小さな P3 を 描 さ 並べます. そ 
こで 200 ほの ように この 円 を 描 <® 標に は， 
^ R を 掛け. （X0 + cos CT) * R , 
Y0 - sin CT) + R) としなければ なり 
ませ hAFmurs 3#BSX mizAm~2AQ 

i ラの for 〜 next Jir-zrmcm^ rb 
から re ，で 次第に 大きぐ しなが ほ 

な こと を WiO 返して いきま^. 

さて， 今の はほんの 小手 « ベです. 次に 

2106 を List 7a のように 変更し t どん 
な © 形が 現れるな 見て < ださ ぃ 4 これ は R 
ガ大 s< なる につれ， 描かれる 円ち 大き < 
なって います + 

では， 140, ？ IOIt^ List 7 わの ように 



変えて み 3： しょう. 今展 は， 半 の大さ 
な 円 JS の 内 « に 浸して， 円ガ 並び S す. 

このように， 円の 半埕の 指; £ を 変える と， 
いろいろ 玆変 f 匕ガ しめます— さらに， こ 
こで SCREEN 3© マ〗 L/^ カラー モード を 
便って みまし 3^ Lfst 7C を してみ 
て <： ださい. 





3 羣 アートべ の アブ d— チ 



0^ 



S3 



List 



List 7a 



210 CUE tX,Y> r R,C 



List 7b 



210 CIRCLE (X.Y) ,96-R,C 

、 

Ust7c 



J 



-^a : RS=6 

COLOR 14,1.1 ： 匚 し S 
IF C>16 THEN C=2 



List 7 
□EFSNG A-Z 



SCREEN 2 ! COLOR 14,1.1 i CLS 
FOR R=RB TO RE STEP RS 

FOR T=9 TO 2*PI STEP 2"PI/S 

X=1Z8+R*C0SCT) ： Y=96-R*SIN(T) 
CIRCLE <X»Y) P a ( C 
NEXT T 

C-C+l ： IF C=16 THEN C-2 
NEXT R 

□m-IMF i UTS( 1) :END 



& 0 0 0 0 0 0 

012 3 4 5 6 

1111111 
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グー 厶 への アプローチ 
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ハイ^ □ ァ の!^ 

ビーム 砲 を 打つ 

基地:! Cfl^ &ぃ/ 

スト、 W5pt ツチ を 作る 

迷蹈を 作る 

音符と ともに 音錢 / 

飛行機 魏 时 

タ — &ェ レギー メづ 

流れる 翻 

力 二さん 力： さん 



本 靡で は， BA3C フ ログ ラムに よる TV 
ケ 一しの' ほ を 求して みたい と 思い ま 
す. 

ffi* では a] 面に 描 jajrue ァ一 卜 を 見て 「美 
しい …一 j と ffif」 ひする の ^主たる g 的で し 
だ. しかし * なる » 止 a 面の きれい さ だけ 

では TV ゲーム はでき ません. 加えて 動き 
の 面 S さガ必 g になって ぐるので す. グラ 

フィックに 動き を さえる:: と， ごれ ガ本攀 

の S 的て す. 



迷路 を 作る 



n てち * w の 上に 霧^れ だ逑 蹈^ ie 華 © 
先で たどって い <. という 接1« が， 一度 や 
二 慰 は あると 思し、^ す. 

ごの 迷 s を コンピュータに 作らせる に は 
どづ すれば よいので しょうな. 

迷路 を 作る に は， 迫 をのば してい < 方法 

と， S をのば してい <：6 法 あ 1 DSt サ; 0 1 ， 

ここで は 遒5 のばして いく 方法 を 便い ます. 

Hsure f のよ ろに 入 □ と 出 □ によって， 



外适 は o に 分け られま す-この 9m(ma. 
b ) に » する 望 を 次々 に 作って し \«m^tf, 
すてに 存茌 している 壁と 窒 をつな ぐよう な 
m を 作 つて はいけ * せん. t& け 31 ガふ さ 13 
つてし まう ことがある ならで マ. この ^則 
さえ 守って 壁 を 作って いけば， ななら す 抜 

け iS の ある 迷路 ガ できあなり^す， 

この フ13 グラムて は. 220 行で 外 S を 描き， 
230. 24 ひ 行で 入口と を 作って い S す. 




Figure 1 



OK 



«a,b がくつつ いた ±« 合 



4 章 ゲ一ム への ァプ u —チ 



260〜2a)f^ は ， 2 フの 壁の ど ち ^>73 一方 に 接 
する^ を 探して います， その 点ガ 決まる と， 
300 行で 発生 させ C 乱数に より， どちら 向き 
の S を 作る 》 決定し * 行で そのお 

ガ 他のお と 接しな し 、などろ な 判定 し, 390f7 



で S を 描き^す. 

この 方法 は， 大 S い 迷路 を 作る とき 非常 
に特 問が; 93 るの が 欠点です. 他に お 迷路 
の 描 さ； 5 はありますなら. ffl^ してみ て < 
ださい. 



List 



110 
120 
13Q 

Ida 

150 
160 
170 
18B 
190 

2m 
2ie 

223 
239 

2aa 

250 
25(3 
272 
2SQ 
299 
39 S 
313 
329 
33 & 
3^0 
350 
36Q 

3?a 

330 
396 

&m 

410 
420 



List 7 

DEFSNG A-Z 
XB=59 I 

YB=1B : YE-ISJ3 
M=10 t N=18 
XU=(XE-XBJ/M : 

DM 二 RND 《一 TIME) 

C=7 



YU=<YE-Y3)/N 



CLS 



SCREEN 2 : COLOR 15,1,1 
LINE (XB,¥BJ-CXE,YE) f C,B 
LIME (XS h ¥B + l XB p YB+YU-X) * 
LIME ( XE f YE-i )-C XE, YE-VU+1 > » 



■INT(RNDC1>*CM+1>> ！ Y= INTC RND{ 1 >*( N+l } ? 
X0=XB+X*«XU : V0=¥fl+V*YU 
IF P0INTCX0,V0>=1 THEhf 268 
FOR 1=1 TO 22 



R=1NT (誦 （1)") 

IF R=@ THEN : YS=2 
IF R=l THEN XS=1 : YS=0 

IF R=2 THEN XS=0 : YS=1 

IF R=3 THEN XS=e : YS=-1 

IF X^<=XS QR XN>=XE THEN 410 
IF YNC^YB OR YN>=YE THEN dl0 
IF POINTtXN.YWJOl THEN 418 
LINE (XO, Y0>-CXW,YN) *C 
XO^XN : Y0=YN : S-S-l 
NEXT I 
IF S>0 THEK 260 
細 PLAY *V12T240L6iO5A^ 
440 0M4=INPUT$ai:END 



GOTO 35fl 
GOTO 350 
GOTO 358 



： に^し 



，l 



音符と とちに 音楽 を/ 



MSX は， PLAY 命せ を 使う：! とに よ 
つて. 音^ を 通 S する ごとが でさ ォす， そ 
こて. この g 菜と ともに， 睡 面に 音^ を 出 
力す る プロ グラ を 考えて みましょう， フ 
CD グラ^ を鱺犖 にす る C めに， 単音で 音? 5 

を 出力し si g\ 

音符の 形 <J) は. DRAW 命令で S® 
亂 、ています. 
では， U ス卜を 見て < ださい. 音符 は 1ffi 

面に しか 並べられ; a: いので， それ を 変 

m IM で 数えて あき， N=25 になっ^ら S 面 
^ヮ' J マして 再び 左^な ら 音符 を 出力 して 
います， 



音の データ を DATA として S えてお く 
方法 はいろ いろ あると 思います ガ， ごこで 
は， 1 つ ひとつ を カンマて 区 切って * 大ヌ字 
だけで 表現 させて い 3 す. また， 音程の デ 
ータ である W C, a E …… "t ！、 P である 
"Cr なら 数えて^ * 目の S さに あるな とい 
うこと は， 130 行で 文字？!） TNS= 
ft CDEFGAB" と 定« し, 270fTC INSTR 
閱数 によって 得て い &す. この を 便って 
280 行の 式で 》t 算 し， 音符 を DRAW 命令 
で 出力す る * 所 を 決めて いるので な. 

この 7 口 クラ^で は. » も^ *6 な 場合 を 
例 にと り * しだ^, MSX は 3»*0 音まで 出 




車 ゲームへの アブ ロ一チ 




119 

せる ので， それ を 音^と ともに 出力す るよ 休符 や， n. t などち 出力 するとよ りお 

うな フロ クラし を 3 えてみ て < ださ IA 3： しいち のとなる でしよう. 
Lists 



ヽ 



GOTO 210 



J 




S 



SCREEN 2 i COLOR 15,4,4 i CLS 
GOSUB 330 
RESTORE 420 
H=l 

READ AS 

IF A*- l H* THEN □M5=INPUT*(1>:EKD 
BS=LEFT*£A$, 1 > 



0=VALtRIGHT$( 1)1 
GOTO 210 
GOTO 210 



IF B*="0" THEN PLAY A$ 
IF B*-*L" THEN PLAY AS 
IF B$="R" THEN PLAY AS 
I=1NSTRCTN* 

X=N»18 r Y=105— (0— り 》17,5 — （1_1 
PLAV A$ i GOSUB 333 

N-N+l : [F N=25 THEN CLS : N=l : GOSUB 330 
GQTO 210 

for L=ee to xm step 5 

LINE (8, し）一 （253, し）， 15 
NEXT し 
RETURN 

DRAU * S4A0BM=X i , =¥ i Srt+2 . +2C1 5 " 
□RAU "し纖 R3E1L3E1R2U12' 
RETURN 

DATA l_16,CM，(3,D,E，ni,G，[),E,D 
DATA L32,03 i B i 04,C,D,E,F,G,f ,E 
DATA F,E,D,£，D,C，03,B，O4，C 
DATA 03,B,04，C,D，E,F,G,L16,03，G 
□ATA L16,0"G,D，E,D 
DATA し 32,03,B,CW，C,D,E，F,G,F,E 
□ATA F,E,D,£，D,C + D3,Bt0d t C 
DATA O3.B t 0i ,C,D, E.F ,G,Ld,03.G 
DATA @ 
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飛行機 を 飛ばす 



視雜 な ® 形 を 秦早 < Gi m に 移動 さ せる に 
は. スフ ライ 卜 《 能 を 使う と ffi 利て す ， こ 
の 接^ を 用いて， 飛 ほ « を fli ぱ してみ まし 
よ ラ. 

飛行 徽は 2S で 表現し だいので， ス プライ 
卜メ S ターン は それぞれの 色の B0 分に ついて 
2 ゥ 作り， » ね 合せて 出力して います. この 
2 つの ス プライ K/ T ターン は， スフ ライ 卜 面 
の 10S と 11 番 に！) り 当て まし C 霣は， 
270〜300 行て 飛 ^被の 割り当てられ ている 
スフ ライ 卜 面 の配 後に ■ き， 飛 fl« が 見え 
隠れす るよ ラ にして います ♦ 



330〜420 ほ は ♦ カーソル キ一 入力に 対 す 
る 呈本的 ^ テクニックです. カーソル キー 

m を 押す と 飛行機 は 上へ， m を 押^と 下へ 

動いて 行きます. 330 行で は * スフ ライ 卜が 
S なつ C とさの 割り込み を股定 しています- 
そごで » と 飛行 観ガ ffi なっ^^ 合 は， ぉ0 行 
の PLAY 命 * により S との 衝突 音 宁を穽 

します. 

この プロ グラ^ は. ちょっと 手 を a える 
だけで， ゲー^に なりそう です ね. 

な あ， ラム を 終了す るに は， ffl 
^"を 押して <： ださい. 
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List 9 



100 

11B 
122 
130 
IdS 
158 
160 
170 
186 
190 
2Q0 
210 
229 
238 

2^ie 

250 
260 
2713 
2S3 

3@e 

310 
32Q 
330 
3^0 
350 

3?e 

380 
390 

Am 

410 

ぬ 0 
糊 

460 
d70 
480 

sm 

518 
52Q 
536 



> 

'， List 9 0H 

DEFINT A-Z 
DM=RND<-TIME> 

xs=e ： ys=4 

XE=255-16 t YE=191-16 

SCREEN 2,2,0 \ CO し OR 15,4^4 : C し S 
RESTORE 細 
FOR 1=0 TO 2 

FOR J=l TO 32 

READ R : S*=S*+CHR*< R ) 
NEXT J 

SPRETE*CI)=S* 
NEXT I 

FOR 1=1 TO 20 STEP 2 

X = (XE-XB)*RMD( D+XB : Y=( YE-YB J^RNQU )+¥B 

IF lOil THEN PUT SPRITE I f tX t V?il5»2 
NEXT 【 

X=XE ： Y=CYB+YE)/2 

ON SPRITE GOSUB dAfl 
gp.RI,TE 。〜 

い STKK は〕 

X=X-XS ： IF X<XB THEN X-KE 
IF 1=1 AND Y-VS>YB THEN Y=Y-YS 
IF 【=5 AND Y+YS<YE THEN Y=Y^Y5 
IF r=3 OR 1-7 THEM END 



PUT SPRITE 1S,(X,Y》，9，0 i PUT SPRITE 
FOR T=l TO 20 : MEXT T 
GOTO 3d0 

SPRITE OFF : PLAY 'V12L6403ft' ： RETURN 



□ATA 


3 






□ATA 


0 


t d f 2 


r 0 r 3 


□ATA 


0 


ぶ 0 


,3.8 


□ATA 


e 


.d,3 


,0,0 



0 

0,0,0 



DATA 0,0 ,14, 63 .127 .127, 63*126, 55 ,61 ,24.6.9,0,0,0 
DATA 0*0,192,224,224,2^8,252*255*25^,96,192,0,0,0,0,0 



ドラゴン 曲線 

97 ぺ一 ジ （rw'w^ な グラフ ィ ヅ ク »j» の 
ひとつ ご w 介し ましたが， ^ ブ o グ 
ラム は， サブ ルーア^が のみ もコ 
—ル するとい う W 造 をと つてい るた め ♦ \w 
とい 1 て もま だ^ 解し やすいせ « に 人り ま 
す ♦ けれども 世め 中には おる サブ ルー ザ 
二が や I の サブルーチン を コー^し， そ のサ 
ブ j レー チンが のサ ブルー チ ンをコ 一ル し, 
めぐって また 分 0ft が tt われる とい 

う， ほとんど 入 脚の ベ H/ を 13 姓し 
た W i£ の WW 的 ゥ ラフ ィ リ クが^ 在して い 
ます, 




ここに nitt したの も， そのような ブログ 
ラムの ひとって す • もつ ばらな へ 曲が リた 
がる サブルーチンに 00リ> と， 逆にお へ It か 
リ 曲がろ う と 4 る り ブルー チン (280 行） が， 
お K いに 相 f を コールしながら もつれ あい, 
あや 曲 繳を 儷り 上げて いき g: す. しかし £ 
■cm ける とお わかりの ように， これ だけ は 

輪て ぁリ ながら. か】 し ai の 上-も 二度 » る こ 
丄 I we m にありません， この mi 跺は ドラゴ 
ン カーブと *f ばれ， この 乎の ダラつ い リク 

がす さな 入々 の PH ご は丄 c しれ？; なシ ロモ 

ノ てす. 



1Q8 
110 
12G 
130 
149 
150 

iee 

21G 

22a 

230 
2d9 
259 
260 
2?0 
280 

323 
330 
3i0 



at 



OEFINT A— 



COLOR 1,15,15 : CLS 



ORAU 'BM78,129 
R=l t 0=12 t 
GOTO 163 



A158 C=Ci 
GOSUB 200 



C=16-( 



IF D=0 THEN ORAU *U' : RETURN 
□=0-1 
GD5UB 200 

R=(R+3) MOD & j DRAU ' A=R ■ 
G0SU8 2B0 
0=0+1 
RETURN 




IF 0=6 THEN ORAU 

GOSUB 298 
R=(R+1> MOD d 
QD5UB 280 
D=D+1 
RETURN 



U" : RETURN 



DRAU *A=Rj * 
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